home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / TPUG Xtras / Xtras / progdisk.d64 / hangman.main (.txt) < prev    next >
Commodore BASIC  |  2009-02-07  |  7KB  |  221 lines
  1. 10 POKE53280,6:POKE53281,1
  2. 15 PRINT"[147]"TAB(15)"           [146]"
  3. 20 PRINTTAB(15)" [154] HANGMAN  [146]"
  4. 25 PRINTTAB(15)"           [146][158]":PRINT
  5. 30 REM***BY WHIZ KIDS***
  6. 60 TI$="000000"
  7. 70 PRINT"[151]PLEASE TYPE YOUR FIRST NAME":INPUT"AND PRESS RETURN   [166][157][157][157]";A0$
  8. 80 A=INT(TI/5):FORI=1TOA:X=RND(1):NEXTI
  9. 90 N$=LEFT$(A0$,1):POKE53280,6:POKE53281,0
  10. 100 PRINT"[147]"TAB(15)"           [146]"
  11. 104 PRINTTAB(15)" [154] HANGMAN  [146]"
  12. 106 PRINTTAB(15)"           [146][158]":PRINT
  13. 110 FORI=1TO10:GETA$:NEXTI
  14. 120 PRINT"I THINK OF A WORD AND YOU TRY TO GUESS"
  15. 130 PRINT"LETTER BY LETTER WHAT THE WORD IS."
  16. 140 PRINT" [162][162][162][162][162][162][162][162][162][162][162][157][157][157][157][157][157][157][157][157][157][157]";
  17. 150 PRINT"[161][161][146]  [206][206]   [194][157][157][157][157][157][157][157][157][157][157][161][161][146] [206][206]    [215][157][157][157][157][157][157][157][157][157][157][161][161][146][206][206][157][157][157][157][161][161][146][206]";
  18. 160 PRINT"[157][157][157][161][161][146][157][157][161][161][146][157][157][161][161][146][157][157][161][161][146][166][166][166][166][166][163][163][163][163][163][166][166][157][157][157][157][157][157][157][157][157][157][157][157][157][157][166][166][166][166][166][166][166]";
  19. 170 PRINT"     [166][166][166][166][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][166][166][166][166][166][166][166]     [166][166][166][166][166][166]"
  20. 180 PRINT"";
  21. 190 PRINT"O[157][157][164][194][146][205][157][157][166][163][157][157][157][167][167][157][157][186][186]";
  22. 200 M=0:R=0
  23. 210 RESTORE:READN:R1=INT(N*RND(1)+1)
  24. 220 FOR K=1TOR1:READ A$:NEXTK
  25. 230 IF R1<79 AND RND(1)<.3THEN A$=A$+"S"
  26. 240 P$=""
  27. 250 FOR A=1 TO LEN(A$):P$=P$+"-":NEXTA
  28. 260 PRINT"THE WORD IS "P$"              "
  29. 270 B$="ABCDEFGHIJKLMNOPQRSTUVWXYZ'":U$=""
  30. 280 GOTO 340
  31. 290 PRINT"THE WORD IS "P$:IF A$=P$ THEN GOSUB1850:GOTO 100
  32. 300 R=0:Q=140:GOSUB1940
  33. 310 IF TI<140 GOTO 310
  34. 320 PRINT"                   ":PRINT"                   "
  35. 330 PRINT"                "
  36. 340 PRINT"WHAT IS YOUR GUESS?  ";
  37. 350 GET G$:PRINT"[157][191][146]";:IFG$=CHR$(13) GOTO 350
  38. 360 Q=10:GOSUB1940
  39. 370 PRINT"[157][218]";
  40. 380 Q=10:GOSUB1940
  41. 390 IF G$="" GOTO 350
  42. 400 PRINT"[157]"G$:PRINT"                   "
  43. 410 FOR A=1 TO 27
  44. 420 IF G$=MID$(B$,A,1) GOTO 450
  45. 430 NEXTA
  46. 440 PRINT"NOT A VALID":PRINT"CHARACTER!":GOTO 290
  47. 450 FOR A=1 TO LEN(U$):IF G$=MID$(U$,A,1) GOTO 470
  48. 460 NEXTA:GOTO 500
  49. 470 PRINT"YOU HAVE ALREADY"
  50. 480 PRINT"USED THAT LETTER!"
  51. 490 PRINT"GUESS AGAIN.":GOTO 290
  52. 500 U$=U$+G$
  53. 510 FOR A=1 TO LEN(A$)
  54. 520 IF G$=MID$(A$,A,1) THEN P$=MID$(P$,1,A-1)+G$+MID$(P$,A+1,LEN(P$)):R=1
  55. 530 NEXTA
  56. 540 IF R=1 GOTO 560
  57. 550 PRINT"WRONG":M=M+1:GOSUB580:GOTO 290
  58. 560 PRINT"RIGHT"
  59. 570 GOTO 290
  60. 580 ON M GOTO 590,710,740,780,920,940,1050,1280
  61. 590 PRINT"";
  62. 600 PRINT"O[157][157][164][194][146][205][157][157][166][163][157][157][157][167][167][157][157][186][186]";
  63. 610 Q=50:GOSUB1940
  64. 620 PRINT"[157][157][205][145][157][206]";
  65. 630 Q=20:GOSUB1940
  66. 640 PRINT"[157][157][164][207][157] ";
  67. 650 Q=20:GOSUB1940
  68. 660 PRINT"[145][145][145][145][145]O[157][157][167][194][146][205][157][157][157][206][166][206][157][157][157][206][167] [157][157][157][157][186] [186][157] ";
  69. 670 PRINT"[145][145][145][145][145][157][157]O [157][157][157][192][194][146][205] [157][157][157][157] [166][167] [157][157][157][157][167][167] [157][157][157][186][186] [157][157] ";
  70. 680 PRINT"[145][145][145][145][145][157][157]O [157][157][157][198][194][146][205] [157][157][157][157] [166][206] [157][157][157][167] [157][157][186] ";
  71. 690 PRINT"[145][145][145][145][145][157][157]O [157][157][157][164][194][146][205] [157][157][157][157] [166][163] [157][157][157][157][167][167] [157][157][157][186][186] [157][157]" ;
  72. 700 RETURN
  73. 710 PRINT"";
  74. 720 PRINT"O[157][157][164][194][146][205][157][157][166][163][157][157][157][167][167][157][157][186][186]";
  75. 730 GOTO 620
  76. 740 PRINT"";
  77. 750 PRINT"O[157][157][164][194][146][205][157][157][166][163][157][157][157][167][167][157][157][186][186]";
  78. 760 GOTO 620
  79. 770 PRINT"O[157][157][186][194][146][205][157][157][166][163][157][157][157][206] [165][157][157][157][157][186] [205][157][163]";
  80. 780 PRINT"";:GOSUB800
  81. 790 RETURN
  82. 800 PRINT"O[157][157][164][194][146][205][157][157][166][163][157][157][157][167][167][157][157][186][186]";
  83. 810 Q=30:GOSUB1940
  84. 820 PRINT"[145][157][206][157][205]";
  85. 830 Q=15:GOSUB1940
  86. 840 PRINT"[145][145][145][145][157][157]O [157][157][157][164][194][146][205] [157][157][157][166][163] [157][157][157][157][206][167] [157][157][157][205][186] [157]";
  87. 850 Q=5:GOSUB1940
  88. 860 PRINT"[157][157][157][186] ";
  89. 870 Q=10:GOSUB1940
  90. 880 PRINT"[145][145][145][145][157][157]O [157][157][157][164][194][146][205] [157][157][157][166][163] [157][157][157][157][167][167] [157][157][157][186] [205] [157][157]";
  91. 890 Q=5:GOSUB1940
  92. 900 PRINT"[145][157][167][160][157][157][186] [157]"
  93. 910 RETURN
  94. 920 PRINT"";:GOSUB800
  95. 930 RETURN
  96. 940 PRINT"";
  97. 950 PRINT"O [157][157][157][164][194][146][205] [157][157][157][166][163] [157][157][157][157][167][167] [157][157][157][186][186]  [157][157]";
  98. 960 Q=20:GOSUB1940
  99. 970 PRINT"[145][145][145][145][157]O [157][157][157][164][200][146][205] [157][157][157][166][167] [157][157][157][157][167][167] [157][157][157][167][167]  [157][157]";
  100. 980 Q=15:GOSUB1940
  101. 990 PRINT"[145][145][145][145][157]O [157][157][157] [217][146][212] [157][157][157][166][212] [157][157][157][157][167][167] [157][157][157][167][167]  [157][157]";
  102. 1000 Q=15:GOSUB1940
  103. 1010 PRINT"[145][145][145][145][157]O [157][157][157][217]"N$"[146][205][157][157][157][217][166][206] [157][157][157][157][167] [165][157][157][157][186] [204] [157][157]";
  104. 1020 Q=20:GOSUB1940
  105. 1030 PRINT"[145][145][145][157][157][206][157][205]"
  106. 1040 RETURN
  107. 1050 PRINT"";
  108. 1060 PRINT"O [157][157][157][206]"N$"[146][205][157][157][157][205][166][206] [157][157][157][157][167] [165][157][157][157][186] [204] [157][157]";
  109. 1070 GOSUB1440
  110. 1080 PRINT"[145][145][157][157][165][167][157]";
  111. 1090 GOSUB1440
  112. 1100 PRINT"[145][145][157][157][157][163]  [163][157][157]";
  113. 1110 GOSUB1440
  114. 1120 PRINT"[145][145][145][157][157][157][163][163][163][163][157][157][157][157][157]  [157][157]";
  115. 1130 GOSUB1440
  116. 1140 PRINT"[145][145][145][145][157][157][157][205][206][157][157][157][157][157]  [157][157]";
  117. 1150 GOSUB1440
  118. 1160 PRINT"[145][145][145][145][157][157][157] [204][186] [157][157][157][157][157]    [157][157]";
  119. 1170 GOSUB1440
  120. 1180 PRINT"[145][145][145][145][145][157][157][165][167][157][157][157][205][206][157]";
  121. 1190 GOSUB1440
  122. 1200 PRINT"[145][145][145][145][145][157][157][206][205][157]";
  123. 1210 Q=35:GOSUB1940
  124. 1220 PRINT"[145][145][145][145][145][157][157][164][129][194][164][157]";
  125. 1230 Q=35:GOSUB1940
  126. 1240 PRINT"[145][145][145][145][145] [157][186][157]";:A0=(null)^(null):PRINT"[145][145][145][145] [157][208][157]";:A0=(null)^(null)
  127. 1250 PRINT"[145][145][145][205][157][206][157]";:A0=(null)^(null):PRINT"[145][145][145][145][145][157][157] [157][204]";:A0=(null)^(null):PRINT"[157] [157][207]";
  128. 1260 A0=(null)^(null):PRINT"[157][206][157][205]";
  129. 1270 RETURN
  130. 1280 GOSUB 1760:GOSUB 1720
  131. 1290 PRINT"     [157][157][157][157][157][205][205][205]";
  132. 1300 Q=5:GOSUB1940
  133. 1310 PRINT"[157][157][157][145][145]   "
  134. 1320 FOR Y=2TO3
  135. 1330 FOR B=1TOINT(7*RND(1)+1)
  136. 1340 FORR0=YTO4:GOSUB1430:GOSUB1460:NEXTR0
  137. 1350 FORR0=4TOYSTEP-1:GOSUB1430:GOSUB1460:NEXTR0:NEXTB:NEXTY
  138. 1360 R=(null)^(null)^(null):R0=4:A0=6:L0=4:L1=4:GOSUB1460
  139. 1370 Q=500*RND(1):GOSUB1940
  140. 1380 A0=6:L0=INT(4*RND(1)+1):L1=INT(4*RND(1)+1):GOSUB1460
  141. 1390 L0=4:L1=4:GOSUB1460
  142. 1400 Q=15:GOSUB1940:FORI=1TOINT(9*RND(1)):GOSUB1460:NEXTI
  143. 1410 Q=300:GOSUB1940
  144. 1420 PRINT"[147]":GOTO100
  145. 1430 A0=INT(7*RND(1)+1):L0=INT(4*RND(1)+1):L1=INT(4*RND(1)+1):RETURN
  146. 1440 Q=5:GOSUB1940
  147. 1450 RETURN
  148. 1460 ON R0 GOTO 1470,1480,1490,1500
  149. 1470 PRINT"";:GOTO 1510
  150. 1480 PRINT"";:GOTO 1510
  151. 1490 PRINT"";:GOTO 1510
  152. 1500 PRINT"";
  153. 1510 PRINT" [129] [194]  [157][157][157][157][157]  Q  ";
  154. 1520 PRINT"[157][157][157][157][157]  "N$"[146]  [157][157][157][157][157]  [166]  [157][157][157][157][157]     [157][157][157][157][157]     [157][157][157][157][157]     ";
  155. 1530 ON A0 GOTO 1540,1550,1560,1570,1580,1590,1600
  156. 1540 PRINT"[157][157][157][157][157][145][145][145][145][145][205][164][164][206]";:GOTO 1610
  157. 1550 PRINT"[157][157][157][157][157][145][145][145][145][206][163][163][163]";:GOTO 1610
  158. 1560 PRINT"[157][157][157][157][157][145][145][145][145][206][163][163][145][206]";:GOTO 1610
  159. 1570 PRINT"[157][157][157][157][157][145][145][145][145][205][206][205][206]";:GOTO 1610
  160. 1580 PRINT"[157][157][157][157][157][145][145][145][167][145][206][205][165]";:GOTO 1610
  161. 1590 PRINT"[157][157][157][157][145][145][145][217][145][157][217][212][157][212]";:GOTO 1610
  162. 1600 PRINT"[157][157][157][157][145][145][145][205][157][145][206][205][157][206]";:GOTO 1610
  163. 1610 ON L0 GOTO 1620,1630,1640,1650
  164. 1620 PRINT"[157][157][157][157][157][145][145][145][206][204]";:GOTO 1660
  165. 1630 PRINT"[157][157][157][157][157][145][145][145][164][186]";:GOTO 1660
  166. 1640 PRINT"[157][157][157][157][157][145][145] [205][164]";:GOTO 1660
  167. 1650 PRINT"[157][157][157][157][145][157][145] [165][157][204]";:GOTO 1660
  168. 1660 ON L1 GOTO 1670,1680,1690,1700
  169. 1670 PRINT"[157][157][157][157][157][145][145][145][186][205]";:GOTO 1710
  170. 1680 PRINT"[157][157][157][157][157][145][145][145][204][164]";:GOTO 1710
  171. 1690 PRINT"[157][157][157][157][157][145][145][204][206] ";:GOTO 1710
  172. 1700 PRINT"[157][157][157][157][145][186][157][145][167] [157]";:GOTO 1710
  173. 1710 RETURN
  174. 1720 PRINT"SO LONG, "A0$
  175. 1730 GOSUB1830
  176. 1740 PRINT"                   "
  177. 1750 RETURN
  178. 1760 PRINT"SORRY -- THE WORD WAS "A$
  179. 1770 GOSUB1830
  180. 1780 PRINT"THANKS[157][157][157][157][157]ALOT!"
  181. 1790 GOSUB1830
  182. 1800 RETURN
  183. 1810 GOSUB1830
  184. 1820 RETURN
  185. 1830 Q=160:GOSUB1940
  186. 1840 RETURN
  187. 1850 PRINT" CONGRATULATIONS[146]"
  188. 1860 PRINT:PRINT" YOU GUESSED IT!":PRINT
  189. 1870 PRINT"YOU SAVED YOURSELF":PRINT:FORI1=1TO20
  190. 1880 Q=15:GOSUB1940
  191. 1890 PRINT"[145]FOR THE TIME BEING"
  192. 1900 Q=15:GOSUB1940
  193. 1910 PRINT"[145]                  "
  194. 1920 NEXTI1
  195. 1930 RETURN
  196. 1940 TI$="000000"
  197. 1950 IF TI<Q GOTO 1950
  198. 1960 RETURN
  199. 1970 FORI=1TO148:READA$:PRINT"[147]"A$:Q=0:GOSUB1940:NEXTI
  200. 1980 DATA 147
  201. 1990 DATA"YANK","JERK","KNOCK","YAWN","WELD","SCOWL","WHIRL","HUSK"
  202. 2000 DATA"RASP","SWARM","HARM","TEMPT","ASK","CROWD","THWART","SQUAWK"
  203. 2010 DATA"SNOW","END","ARC","ARM","ACT","EXCEPT","EXPEND","EXTRACT"
  204. 2020 DATA"JUNK","OBSTRUCT","TWANG","ZEPHYR","NICHE","GHOST","JAB","OHM"
  205. 2030 DATA"KIND","COMMODORE","STYLE","SCHISM","SCHEME","CZAR","CRYPT","ZIP"
  206. 2040 DATA"SYMPTOM","TWERP","LEAGUE","CRESCENT","WHIZ","SWERVE","GRUB","GROW"
  207. 2050 DATA"GNAT","EXEMPT","PSALM","ZEBRA","EXCERPT","INSTINCT","DEPTH","AMP"
  208. 2060 DATA"STRENGTH","ANT","NYMPH","SPRINKLING","AWL","ASP","ART","ARK"
  209. 2070 DATA"ALP","AXE","URCHIN","AWN","ACE","INKLING","KIDS","KNACK"
  210. 2080 DATA"ORCHARD","APE","SCREW","AISLE","YACHT","EMBEZZLE","DUMMY","RHUMBA"
  211. 2090 DATA"ASPARAGAS","GNU","WHARF","FOXY","YOGHURT","VOODOO","SOLEMN","DIZZILY"
  212. 2100 DATA"GHASTLY","TWILIGHT","STYLUS","SUEDE","ADZ","TYMPANY","TWO","FILCH"
  213. 2110 DATA"UGLY","WRY","WAX","SKIING","SCISSORS","TWITCH","VACUUM","PITCH"
  214. 2120 DATA"WHY","DRY","STRETCH","TRY","SWIMMING","SWITCH","WATCH","GYPSY"
  215. 2130 DATA"GULCH","SKY","DWARF","SIXTH","ELF","FRY","TWELFTH","SPLOTCH"
  216. 2140 DATA"PEOPLE","SHREWD","WHO","ARCHAIC","ASH","APT","AND","UNSHRUNK"
  217. 2150 DATA"AWE","ALPHA","ESCROW","INFLUX","ISTHMUS","IOTA","JUMPY","KRYPTON"
  218. 2160 DATA"OCEANIC","AFT","UNLUCKY","UNSTRUNG","FUZZ","TUX","RYE","AURORA"
  219. 2170 DATA"BLITZ","DRUNK","PHYSICS"
  220. 2180 PRINT"[147]"
  221.